Option Explicit
Sub N_Sample034()
    Dim a As String
    a = Application.InputBox(Prompt:="пJ@ӦrC")
    Select Case True
        Case a Like "[A-Z]": MsgBox "bέ^jg"
        Case a Like "[a-z]": MsgBox "bέ^pg"
        Case a Like "[-]": MsgBox "έ^jg"
        Case a Like "[-C]": MsgBox "έ^pg"
        Case a Like "[0-9]": MsgBox "bμƦr"
        Case a Like "[-]": MsgBox "μƦr"
        Case Else: MsgBox "rάOŸ"
    End Select
End Sub
